0 REM ϠԠҠˠ͠
1 REM VON ANDREAS BINNER UND
2 REM HARALD SCHOENFELD
3 REM 
4 DIM HOCH(3)
5 REM 
10 TRAP 3100:GOSUB 29000:REM ROUTINE IN PAGE 6
20 REM ̠
30 TRAP 3400:CLOSE #1:OPEN #1,8,0,"V:"
31 HOCH(0)=115:HOCH(1)=90:HOCH(2)=75:HOCH(3)=54
32 FOR I=0 TO 4
39 IF I THEN GOSUB 3239:REM ALLE 4 SOUNDKANAELE SETZEN
40 REM ΠҠǠΠâ
50 REM ŠíŠӠ
60 REM ŠŠ
70 ? #1;"g9CZC\3<;2oDg<Y2"
75 IF I THEN GOSUB 3295:GOSUB 3239:REM ALLE KANAELE ETWAS TIEFER
80 REM ĠӠԠҠҠ
90 ? #1;"<g2he39>G0o]J@0"
95 IF I THEN GOSUB 3295:REM VERKLINGEN DER MUSIK
97 NEXT I
100 CLOSE #1
110 END 
3100 ? "}Bitte laden Sie erst die Sprachan-"
3110 ? "steuerungsroutine mit":? :? :? :? "''ENTER D:INIT.LST''":? :? :? :? "ein.":FOR I=1 TO 11:? :NEXT I:END 
3177 FOR WARTE=1 TO 100:NEXT WARTE:RETURN 
3239 FOR KANAL=0 TO 3:HOCH(KANAL)=HOCH(KANAL)+6:SOUND KANAL,HOCH(KANAL),10,12-KANAL:GOSUB 3177:NEXT KANAL
3240 RETURN 
3295 FOR VERKLING=1 TO 7:FOR KANAL=0 TO 3:SOUND KANAL,HOCH(KANAL),10,11-KANAL-VERKLING:NEXT KANAL:NEXT VERKLING
3300 FOR KANAL=0 TO 3:SOUND KANAL,0,0,0:NEXT KANAL
3310 RETURN 
3400 TRAP 3100:GOSUB 29002:GOTO 30
29000 READ D
29001 IF PEEK(1536)=D THEN RETURN 
29002 RESTORE 
29005 FOR I=1536 TO 1707
29010 READ D:POKE I,D
29020 NEXT I
29030 A=USR(1536)
29040 RETURN 
30000 DATA 104,169,86,141,44,3,169,17,141,45
30002 DATA 3,169,6,141,46,3,96,28,6,51
30004 DATA 6,69,6,70,6,169,6,170,6,169
30006 DATA 56,141,2,211,169,127,141,0,211,169
30008 DATA 60,141,2,211,169,0,141,255,6,160
30010 DATA 1,96,169,56,141,2,211,169,0,141
30012 DATA 0,211,169,60,141,2,211,160,1,96
30014 DATA 96,172,255,6,153,253,3,201,155,240
30016 DATA 9,200,140,255,6,240,3,160,1,96
30018 DATA 160,0,185,253,3,201,48,144,49,201
30020 DATA 112,176,45,56,233,48,141,0,211,32
30022 DATA 164,6,9,64,141,0,211,32,164,6
30024 DATA 41,63,141,0,211,173,0,211,16,251
30026 DATA 165,17,240,22,200,204,255,6,208,208
30028 DATA 169,0,141,255,6,160,1,96,160,132
30030 DATA 169,0,141,255,6,96,160,128,169,0
30032 DATA 141,255,6,96,162,0,202,208,253,96
30034 DATA 96,96
